home *** CD-ROM | disk | FTP | other *** search
- /*
- ** $VER: text.rexx 1.0 (30.8.94) written by Robert Brandner
- **
- ** Demo of the usage of the TEXT command
- */
-
- /* enable return codes */
-
- OPTIONS RESULTS
-
- /* is PolyEd out there ? */
-
- if ~SHOW("Ports", "POLYED.1") then do
- say "Please start PolyEd before running this program."
- exit
- end
-
- ADDRESS POLYED.1.1
-
- TEXT "Hi there!"
- TEXT NEWLINE
- TEXT "The parsing of the arguments has a problem with spaces at"
- TEXT NEWLINE "the beginning or the end of the text."
- TEXT NEWLINE
- TEXT NEWLINE " ""TEXT ' Hi there! '"" yields the same as ""TEXT 'Hi there!'"""
- TEXT NEWLINE
- TEXT ' Hi there! '
- TEXT NEWLINE
- TEXT 'Hi there!'
- TEXT NEWLINE "But it works if you use the keyword explicitely: ""TEXT TEXT ' Hi there! '"""
- TEXT NEWLINE
- TEXT TEXT ' Hi there! '
- TEXT ... but not at the end :-(
-